* This file models public perception of the threat by sector


clear all

version 14

set more off

cd "~/Dropbox/0001 Academic Projects/Ongoing/0148 The Cyber/Posted/FPA Version/Work/Data/"

use "CCESUsable.dta"

set scheme plottigblind

cd "~/Dropbox/0001 Academic Projects/Ongoing/0148 The Cyber/Posted/FPA Version/Work/Tables"

* Voting Systems vulnerability
 quietly ologit vulnerablevote white female college age i.newsintadj i.internethome i.pid7
eststo vulnerablevoteALL
 quietly ologit vulnerablevote white female college age i.newsintadj i.internethome if gop7 == 1
eststo vulnerablevoteGOP7
 quietly ologit vulnerablevote white female college age i.newsintadj i.internethome if dem7 == 1
eststo vulnerablevoteDEM7
 quietly ologit vulnerablevote white female college age i.newsintadj i.internethome if ind7 == 1
eststo vulnerablevoteIND7

esttab vulnerablevoteALL vulnerablevoteGOP7 vulnerablevoteDEM7 vulnerablevoteIND7  ///
	using Tab2OlogitVotingMachineVulnerabilityByPartyPID7.tex, ///
	label replace  ///
	wrap  onecell longtable compress ///
	mtitles("All Respondents" "Republicans" "Democrats" "Independent") ///
	title("Ordinal Logit Models of Perceptions of Voting Machine Vulnerability") ///
	refcat(0.newsintadj "News Interest" ///
			1.internethome "Internet at Home" ///
			1.pid7 "Party ID", nolabel) ///
	nodepvars

	
* Power Grid vulnerability
 quietly ologit vulnerablepower white female college age i.newsintadj i.internethome i.pid7
eststo vulnerablepowerALL
 quietly ologit vulnerablepower white female college age i.newsintadj i.internethome if gop7 == 1
eststo vulnerablepowerGOP7
 quietly ologit vulnerablepower white female college age i.newsintadj i.internethome if dem7 == 1
eststo vulnerablepowerDEM7
 quietly ologit vulnerablepower white female college age i.newsintadj i.internethome if ind7 == 1
eststo vulnerablepowerIND7


esttab vulnerablepowerALL vulnerablepowerGOP7 vulnerablepowerDEM7 vulnerablepowerIND7  ///
	using Tab2OlogitPowerGridVulnerabilityByPartyPID7.tex, ///
	label replace nobaselevels ///
	wrap  onecell longtable compress ///
	mtitles("All Respondents" "Republicans" "Democrats" "Independent") ///
	coeflabels(white "White" female "Female" college "College" ///
	age "Age" newsintadj "News Interest" i.internethome "Internet at Home") ///
	title("Ordinal Logit Models of Perceptions of Power Grid Vulnerability") ///
	nodepvars
	
* Major Corp vulnerability
 quietly ologit vulnerablecorp white female college age i.newsintadj i.internethome i.pid7
eststo vulnerablecorpALL
 quietly ologit vulnerablecorp white female college age i.newsintadj i.internethome if gop7 == 1
eststo vulnerablecorpGOP7
 quietly ologit vulnerablecorp white female college age i.newsintadj i.internethome if dem7 == 1
eststo vulnerablecorpDEM7
 quietly ologit vulnerablecorp white female college age i.newsintadj i.internethome if ind7 == 1
eststo vulnerablecorpIND7


esttab vulnerablecorpALL vulnerablecorpGOP7 vulnerablecorpDEM7 vulnerablecorpIND7  ///
	using Tab2OlogitCorpVulnerabilityByPartyPID7.tex, ///
	label replace nobaselevels ///
	wrap  onecell longtable compress ///
	mtitles("All Respondents" "Republicans" "Democrats" "Independent") ///
	coeflabels(white "White" female "Female" college "College" ///
	age "Age" newsintadj "News Interest" i.internethome "Internet at Home") ///
	title("Ordinal Logit Models of Perceptions of Major Corporation Vulnerability") ///
	nodepvars


* Fed Govt vulnerability
 quietly ologit vulnerablefed white female college age i.newsintadj i.internethome
eststo vulnerablefedALL
 quietly ologit vulnerablefed white female college age i.newsintadj i.internethome if gop7 == 1
eststo vulnerablefedGOP7
 quietly ologit vulnerablefed white female college age i.newsintadj i.internethome if dem7 == 1
eststo vulnerablefedDEM7
 quietly ologit vulnerablefed white female college age i.newsintadj i.internethome if ind7 == 1
eststo vulnerablefedIND7


esttab vulnerablefedALL vulnerablefedGOP7 vulnerablefedDEM7 vulnerablefedIND7  ///
	using Tab2OlogitFedVulnerabilityByPartyPID7.tex, ///
	label replace nobaselevels ///
	wrap  onecell longtable compress ///
	mtitles("All Respondents" "Republicans" "Democrats" "Independent") ///
	coeflabels(white "White" female "Female" college "College" ///
	age "Age" newsintadj "News Interest" i.internethome "Internet at Home") ///
	title("Ordinal Logit Models of Perceptions of Federal Government Corporation Vulnerability") ///
	nodepvars


* Military vulnerability
 quietly ologit vulnerablemil white female college age i.newsintadj i.internethome 
eststo vulnerablemilALL
 quietly ologit vulnerablemil white female college age i.newsintadj i.internethome if gop7 == 1
eststo vulnerablemilGOP7
 quietly ologit vulnerablemil white female college age i.newsintadj i.internethome if dem7 == 1
eststo vulnerablemilDEM7
 quietly ologit vulnerablemil white female college age i.newsintadj i.internethome if ind7 == 1
eststo vulnerablemilIND7


esttab vulnerablemilALL vulnerablemilGOP7 vulnerablemilDEM7 vulnerablemilIND7  ///
	using Tab2OlogitMilitaryVulnerabilityByPartyPID7.tex, ///
	label replace nobaselevels ///
	wrap  onecell longtable compress ///
	mtitles("All Respondents" "Republicans" "Democrats" "Independent") ///
	coeflabels(white "White" female "Female" college "College" ///
	age "Age" newsintadj "News Interest" i.internethome "Internet at Home") ///
	title("Ordinal Logit Models of Perceptions of Military Vulnerability") ///
	nodepvars
	
